PASCAL QUICK REFERENCE 



OPERATORS (IN ORDER OF PRECEDENCE, EXTEND IN BOLD) 

Unary NOT ADR ADS 

Multiplying * / DIV MOD AND 

Adding + - OR XOR 

Relational =<><=>=<> in 



CASE 



SET OPERATORS (APPLY DD7FERENTLY TO SETS) 

+ Set union - Set difference 

* Set intersection IN Test set membership 

= Test set equality <> Test set inequality 

<= and >= Test subset and superset 

< and > Test proper subset and superset 

STATEMENT EXAMPLES (EXTEND LEVEL UNDERLINED) 
Assignment A := B + C; 

Procedure ProcedureName(Pl, P2); 

BREAK BREAK Label'2; 

or IF A = B THEN BREAK Labell; 
CASE expression OF 
Case label: Statement; 
| Case label can be a range} 
Case label: Statement; 
OTHERWISE (optional J 

Statement 
END; 

CYCLE Label2; 
FOR I := 1 TO 10 DO 
or FOR J := 10 DOWNTO 1 DO 
GOTO Label2 

IF I := Expression THEN Statement 

ELSE I := Expression 
REPEAT 
Statement; 
Statement 
UNTIL Expression; 

RETURN 

WHILE Expression DO Statement 
WITH Recordname DO Statement(FieldA, FieldB) 



CYCLE 
FOR 

GOTO 
IF 



REPEAT 



RETURN 

WHILE 

WITH 



CONSTANTS 

MAXINT = 32767 
MAXINT4= 2147483647 



MAXWORD= 65535 
SINT = -127..127 



PREDECLARED TYPES 



TYPE 



ROOT FAW 






— IIS 1 CUUrt; 


STRING 


= SUPER PACKED ARRAY [1..*] OF CHAR; 


SINT 


- -127. .127* 


LSTRING 


= SUPER PACKED ARRAY [ 0..*] OF CHAR; 


BYTE 


= WRD(0)..255; 


ADAPQQQ 


= ARRAY [WRD(0)..32765] OF BYTE; 


ADRMEM 


= ADR OF ADAPQQQ; 


ADSMEM 


= ADS OF ADAPQQQ; 


INTEGERl 


= SINT; 



VARIABLE DECLARATION EXAMPLES SHOWING USE OF 
TYPES 

VAR NUMBER : INTEGER; 

LARGENUMBER : WORD; 
HUGENUMBER : INTEGER4; 
SINGLE_PRECISION_DECIMAL : REAL4; 
DOUBLE_PRECISION_DECIMAL : REAL8; 
ALSOJLEGAL : REAL; {Set precision with $REAL} 
CHARACTER : CHAR; 
CONDITION : BOOLEAN; 

ENUMERATED_COLORS : (RED, ORANGE, YELLOW, 
GREEN, BLUE, VIOLET); 
SCORE : 0..10; {subrange type} 
MY_ARRAY : ARRAY [1..10] OF INTEGER; 
SUPER : SUPER ARRAY [1..*] OF REAL; 
INFORMATION : RECORD 

FIRSTJTEM : LSTRING(IOO); 

SECOND JTEM : INTEGER; 

THIRD : ARRAY [1..9] OF SINT 

END 

VARIANT_RECORD : RECORD 
X,Y : REAL; 
S : SHAPE; 
CASE S OF 

SQUARE : (SIZE, ANGLE: REAL); 
CIRCLE : (DIAMETER: REAL) 
END; 

HUES : SET OF ENUMERATED_COLORS; 

PALETTE : FILE OF ENUMERATED_COLORS; 

PTR : WORD; 

AD : ADS OF WORD; 

AR : ADR OF INTEGER; 



RESERVED WORDS VINDICATES AN ATTRIBUTE) 



a no 

AUK 


r U IN O 1 IU JN 


DTTRT 1C * 

rUBLlL * 


AJJo 


r* r\ r vr\ 
KjKJ 1 L> 


TJTTR F * 

ru t\£j * 


AINU 


TP 


bpa nnHT v * 

Ix.Ji/VJL'UiNL.I T 


4 UP A V 

ArtrtA I 


TMPT T7MPWTiTTflW 

JlVlJr L.£jiVltjXN 1 A 1 1UIN 


txCi^\J IxL) 


Q T7 T XT 


T VT 

1JN 


P FPF A T 


d rv iL \ r\ 


TNTTFRFAPF 


T? FTTTR NT 


f~" A QF 


TXJTFRRTTPT * 


CFT 


CONST 


T ARFT 


STATIC * 




MOD 


THEN 


pvri f 


MnruTT f 


TO 


FiTV 

xJx V 


NTT 


TYPE 


no 


NOT 


UNIT 




OF 


TTMTTT 


ELSE 


OR 


USES 


END 


ORIGIN 


VALUE 


EXTERN * 


OTHERWISE 


VAR 


EXTERNAL * 


PACKED 


VARS 


FILE 


PORT 


WHILE 


FOR 


PROCEDURE 


WITH 


FORWARD * 


PROGRAM 


XOR 



METACOMMANDS 
$BRAVE+ 

$DEBUG— 
$ENTRY- 

$ERRORS:25 
IGOTO- 



ENCLOSE IN COMMENTS, E.G. j $DEBDG+ ( 
(Number, +, or - is default setting) 

Sends error messages and warnings to the 
video display. 

Turns on or off all the debug checking. 
Generates procedure entry/exit calls for 
Pascal error routines. 

Sets the number of errors allowed per page. 
Default is 25. 

Flags GOTO statements as "considered 
harmful." 

Allows conditional compilation of source. 



$IF <constant> 

$THEN<text> 

$END {or} 
$IF <constant> 

$THEN<textl> 

$ELSE<text2> 
$END 

$INCLUDE: , <niename>' 

Switches compilation from current source 
file to source file named. 

$INCONST:<identifier> 

Allows interactive setting of constant values 
at compile time. 
$INDEXCK+ Checks for array index values in range, 

including super array indexes. 



$INITCK- 

$INTEGER:2 

$LINE- 

$LINESIZE:131 

$LIST+ 

$MATHCK- 

$MESSAGE:'<text>' 

$NILCK+ 

$OCODE+ 

$PAGE+ 

$PAGE:<n> 

$PAGEIF:<n> 

$PAGESIZE:55 

$POP 

$PUSH 

$RANGECK- 

$REAL:4 

$ROM- 

$RUNTIME- 

$SIMPLE 

$SIZE 

$SKIP:<n> 

$SPEED 
$STACKCK- 

$SUBTITLE: l <text> , 

$SYMTAB+ 

iTITLE^texty 

$WARN+ 



Checks for uninitialized values. 

Sets the length of the INTEGER type. 

Generates line number calls for the Pascal 
error routines. 

Sets width of listing. 

Turns on or off source listing. 

Checks for mathematical errors such as 
overflow and division by zero. 

Allows the display of a message on the 
video display to indicate which version of a 
program is compiling. 

Checks for bad pointer values. 

Turns on disassembled object code listing. 

Sets page number for next page. 

Sets page number for next page. 

Skips to next page if less than a specified 
number of lines are left on the page. 

Sets length of listing in lines. 

Restores saved value of all metacommands. 

Saves current value of all metacommands. 

Checks for subrange validity. 

Sets the length of the REAL type. 

Gives a warning on static initialization. 

Determines context of run-time errors. 

Disables global optimizations. 

Minimizes size of code generated. 

Skips specified number of lines or to end of 
page. 

Minimizes execution time of code. 

Checks for stack overflow at procedure or 
function entry. 

Sets page subtitle. 

Sends symbol table to listing file. 

Sets page title. 

Writes warning messages to listing file. 



INTRINSIC PREDECLARED PROCEDURES AND FUNCTIONS 

PROCEDURE ABORT (CONST MESS: STRING; ERR1, ERR2: 
WORD); 

FUNCTION ABS (X: NUMERIC): NUMERIC; 
FUNCTION ARCTAN (X: REAL): REAL; 

PROCEDURE ASSIGN (VAR F: FILE OF..; CONSTS N: STRING); 

FUNCTION BYLONG (HI: WORD or INTEGER or INTEGER4; 

LO: WORD or INTEGER or INTEGER4);INTEGER4 

FUNCTION BYWORD (PARI, PAR2): WORD; 

FUNCTION CHR (X: ORDINAL): CHAR; 

PROCEDURE CLOSE (VAR F: FILE OF..); 

PROCEDURE CONCAT (VARS D: LSTRING; CONSTS S: STRING); 

PROCEDURE COPYLST (CONSTS S: STRING; VARS D-.LSTRING); 

PROCEDURE COPYSTR (CONSTS S: STRING; VARS D: STRING); 

FUNCTION COS (X: NUMERIC): REAL; 

FUNCTION DECODE (CONST LSTR: LSTRING, X: M: N): 
BOOLEAN; 

PROCEDURE DELETE (VARS D: LSTRING; I, N: INTEGER); 

PROCEDURE DISCARD (VAR F: FILE OF..); 

PROCEDURE DISPOSE (VARS P: POINTER); 

PROCEDURE DISPOSE (VARS P: POINTER; Tl, T2,..TN: TAGS); 

FUNCTION ENCODE (VAR LSTR: LSTRING, X:M:N): 

BOOLEAN; 
FUNCTION EOF: BOOLEAN; 

FUNCTION EOF (VAR F: FILE OF ..): BOOLEAN; 
FUNCTION EOLN: BOOLEAN; 

FUNCTION EOLN (VAR F: FILE OF ..): BOOLEAN; 

PROCEDURE EVAL (EXPRESSION, EXPRESSION,..); 

FUNCTION EXP (X: NUMERIC): REAL; 

PROCEDURE FILLC (D: ADRMEM; N: WORD; C: CHAR); 

PROCEDURE FILLSC (D: ADSMEM; N: WORD; C: CHAR); 

FUNCTION FLOAT (X: INTEGER): REAL; 

FUNCTION FLOAT4 (X: INTEGER4): REAL; 

PROCEDURE GET (VAR F: FILE OF..); 

FUNCTION HIBYTE (I: INTEGER or WORD): BYTE; 

FUNCTION fflWORD (I: INTEGER4): WORD; 

PROCEDURE INSERT (CONSTS S: STRING; VARS D: LSTRING; 

I: INTEGER); 
FUNCTION LN (X: REAL): REAL; 
FUNCTION LOBYTE (I: INTEGER or WORD): BYTE; 
FUNCTION LOWER (EXPRESSION): VALUE; 
FUNCTION LOWORD (I: INTEGER4): WORD; 



PROCEDURE MOVEL (S, D: ADRMEM; N: WORD); 

PROCEDURE MOVER (S, D: ADRMEM; N: WORD); 

PROCEDURE MOVESL (S, D: ADSMEM; :N: WORD); 

PROCEDURE MOVESR (S, D: ADSMEM; N: WORD); 

PROCEDURE NEW (VARS P: POINTER); 

PROCEDURE NEW (VARS P: POINTER; Tl, T1..TN: TAGS); 

FUNCTION ODD (X: ORDINAL): BOOLEAN; 

FUNCTION ORD (X: VALUE): INTEGER; 

PROCEDURE PACK(CONSTS A: UNPACKED; I: INDEX; 
VARS Z: PACKED); 

PROCEDURE PAGE; 

PROCEDURE PAGE (VAR F: FILE OF ..); 

FUNCTION POSITN (CONSTS PAT: STRING; CONSTS S: 
STRING; I: INTEGER): INTEGER 

FUNCTION PRED (X: ORDINAL): ORDINAL; 

PROCEDURE READ (VAR F: FILE OF..; PI, P2,..PN); 

PROCEDURE READFN (VAR F: FILE OF..; PI, P2,..PN); 

PROCEDURE READLN (VAR F: FILE OF..; PI, P2..PN); 

PROCEDURE READSET (VAR F: FILE OF..; VAR L: LSTRING; 

CONST S: SETOFCHAR); 

PROCEDURE RESET (VAR F: FILE OF..); 

PROCEDURE REWRITE (F); 

FUNCTION RESULT (FUNCTION-IDENTIFIER): VALUE; 

FUNCTION RETYPE (TYPE-IDENT, EXPRESSION):TYPE-IDENT; 

FUNCTION ROUND (X: REAL): INTEGER; 

FUNCTION ROUND4 (X: REAL): INTEGER4; 

FUNCTION SCANEQ (LEN: INTEGER; PART: CHAR; 

CONSTS S: STRING: I: INTEGER): INTEGER; 

FUNCTION SCANNE (LEN: INTEGER; PAT: CHAR; CONSTS S: 
STRING; I: INTEGER): INTEGER; 

PROCEDURE SEEK (VAR F: FILE OF..; N: INTEGER4); 

FUNCTION SIN (X: NUMERIC): REAL; 

FUNCTION SIZEOF (VARIABLE: WORD); 

FUNCTION SIZEOF (VARIABLE, TAG1, TAG2,..TAGN): WORD; 

FUNCTION SQR (X: NUMERIC): NUMERIC; 

FUNCTION SQRT (X): REAL 

FUNCTION SUCC (X: ORDINAL): ORDINAL; 

FUNCTION TRDNC (X: REAL): INTEGER; 

FUNCTION TRUNC4 (X: REAL): INTEGER4; 

PROCEDURE UNPACK (CONSTS Z: PACKED; 

VARS A: UNPACKED; I: INDEX); 

FUNCTION UPPER (EXPRESSION): VALUE; 

FUNCTION WRD (X: VALUE): WORD; 

PROCEDURE WRITE (VAR F: FILE OF..; PI, P2, .. PN); 

PROCEDURE WRITELN (VAR F: FILE OF..; PI, P2, .. PN); 



OTHER PROCEDURES AND FUNCTIONS 

FUNCTION ACSRQQ (CONSTS A: REAL4): REAL4; EXTERN; 
FUNCTION ACDRQQ (CONSTS A: REAL8): REAL8; EXTERN; 

FUNCTION AISRQQ (CONSTS A: REAL4): REAL4; EXTERN; 

FUNCTION AIDRQQ (CONSTS A: REAL8): REAL8; EXTERN; 

FUNCTION ALLHQQ (SIZE: WORD): WORD; EXTERN; 

FUNCTION ALLMQQ (wants: WORD) :ADSMEM; EXTERN; 

FUNCTION ANSRQQ (CONSTS A: REAL4): REAL4; EXTERN; 

FUNCTION ANDRQQ (CONSTS A: REAL8): REAL8; EXTERN; 

FUNCTION ASSRQQ (CONSTS A: REAL4): REAL4; EXTERN; 

FUNCTION ASDRQQ (CONSTS A: REAL8): REAL8; EXTERN; 

FUNCTION ATSRQQ (CONSTS A: REAL4): REAL4; EXTERN; 
FUNCTION ATDRQQ (CONSTS A: REAL8): REAL8; EXTERN; 
FUNCTION A2SRQQ (A, B: REAL4): REAL4; EXTERN; 
FUNCTION A2DRQQ (A, B: REAL 8): REAL8; EXTERN; 
PROCEDURE BEGOQQ; EXTERN; 
PROCEDURE BEGXQQ; EXTERN; 

FUNCTION CHSRQQ (CONSTS A: REAL4): REAL4;EXTERN; 
FUNCTION CHDRQQ (CONSTS A: REAL8): REAL8;EXTERN; 
FUNCTION CNSRQQ (CONSTS A: REAL4): REAL4; 
FUNCTION CNDRQQ (CONSTS A: REAL8): REAL8; 
FUNCTION DISMQQ (block: ADSMEM); EXTERN; 

PROCEDURE ENDOQQ; EXTERN; 
PROCEDURE ENDXQQ; EXTERN; 

FUNCTION EXSRQQ (CONSTS A: REAL4): REAL4; EXTERN; 
FUNCTION EXDRQQ (CONSTS A: REAL8): REAL8; EXTERN; 

FUNCTION FREECT (SIZE: WORD): WORD; EXTERN; 
FUNCTION FREMQQ (block: ADSMEM): WORD; EXTERN; 
FUNCTION GETMQQ (wants: WORD): ADSMEM ;EXTERN; 
FUNCTION GTYUQQ (LEN:WORD; LOC:ADSMEM): 
WORD;EXTERN; 

FUNCTION LADDOK (A, B: INTEGER4; VAR C: INTEGER4): 
BOOLEAN; EXTERN; 

FUNCTION LDSRQQ (CONSTS A: REAL4): REAL4; EXTERN; 
FUNCTION LDDRQQ (CONSTS A: REAL8): REAL8; EXTERN; 

FUNCTION LMULOK (A, B: INTEGER4; VAR C: INTEGER4): 
BOOLEAN; EXTERN; 

FUNCTION LNSRQQ (CONSTS A: REAL4): REAL4; EXTERN; 
FUNCTION LNDRQQ (CONSTS A: REAL8): REAL8; EXTERN; 
PRGCEDURE MARKAS (VAR HEAPMARK: INTEGER4); EXTERN; 
FUNCTION LOCKED (VARS SEMAPHORE: WORD): BOOLEAN; 
EXTERN; 



FUNCTION MDSRQQ (CONSTS A, B: REAL4): REAL4; 
EXTERN; 

FUNCTION MDDRQQ (CONSTS A, B: REAL8): REAL8; 
EXTERN; 

FUNCTION MEMAVL: WORD; EXTERN; 

FUNCTION MNSRQQ (CONSTS A, B: REAL4): REAL4; 
EXTERN; 

FUNCTION MNDRQQ (CONSTS A, B: REAL8): REAL8; 
EXTERN; 

FUNCTION MXSRQQ (CONSTS A, B: REAL4): REAL4; 
EXTERN; 

FUNCTION MXDRQQ (CONSTS A, B: REAL8): REAL8; 
EXTERN; 

FUNCTION P1SRQQ (CONSTS A: REAL4; CONSTS B: 
INTEGER4): REAL4; EXTERN; 

FUNCTION PIDRQQ (CONSTS A: REAL8; CONSTS B: 
INTEGER4): REAL8; EXTERN; 

PROCEDURE PLYUQQ; EXTERN; 

FUNCTION PREALLOCHEAP (VARS CBALLOC: WORD): 

WORD: EXTERN; 
FUNCTION PREALLOCLONGHEAP (CPARA: WORD); WORD: 

EXTERN; 

FUNCTION PRSRQQ (A, B: REAL4): REAL4; EXTERN; 
FUNCTION PRDRQQ (A, B: REAL8): REAL8; EXTERN; 

PROCEDURE PTYUQQ (LEN: WORD; LOC: ADSMEM); EXTERN; 
PROCEDURE PUT (VAR F: FILE OF..); 

PROCEDURE RELEAS (VAR HEAPMARK: INTEGER4); EXTERN; 
FUNCTION SADDOK (A, B: INTEGER; VAR C: INTEGER): 
BOOLEAN; EXTERN; 

FUNCTION SHSRQQ (CONSTS A: REAL4): REAL4; EXTERN; 
FUNCTION SHDRQQ (CONSTS A: REAL8): REAL8; EXTERN; 

FUNCTION SMDLOK (A, B: INTEGER; VAR C: INTEGER): 

BOOLE AN;EXTERN; 

FUNCTION SNSRQQ (CONSTS A: REAL4): REAL4; EXTERN; 

FUNCTION SNDRQQ (CONSTS A: REAL8): REAL8; EXTERN; 

FUNCTION SRSRQQ (CONSTS A: REAL4): REAL4; EXTERN; 

FUNCTION SRDRQQ (CONSTS A: REAL8): REAL8; EXTERN; 

FUNCTION THSRQQ (CONSTS A: REAL4): REAL4; EXTERN; 

FUNCTION THDRQQ (CONSTS A: REAL8): REAL8; EXTERN; 

FUNCTION TNSRQQ (CONSTS A: REAL4): REAL4; EXTERN; 
FUNCTION TNDRQQ (CONSTS A: REAL8): REAL8; EXTERN; 

FUNCTION UADDOK (A, B: WORD; VAR C: WORD): 
BOOLEAN; EXTERN; 

FUNCTION UMULOK (A, B: WORD; VAR C: WORD): 

BOOLE AN;EXTERN; 
PROCEDURE UNLOCK (VARS SEMAPHORE: WORD); EXTERN; 
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